Dim fso,currentDir
Dim parentFunc,parentAssets,parentEntry

set fso = CreateObject("Scripting.FileSystemObject")
' 当前目录
currentDir = fso.getFolder(".").Path
' Wscript.echo "currentDir目录=" & currentDir


ps1_rootPath = currentDir & "/../"
' Wscript.echo "ps1_rootPath=" & ps1_rootPath
ps1_path = ps1_rootPath & "/powershell/test.ps1"

' msgbox "ps1_path=" & ps1_path
set objShell = CreateObject("Wscript.shell")
ps1 = "powershell -NoExit -file " & ps1_path
objShell.Run(ps1)

Set fso = Nothing